home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / communic / bitfax.300 / disk1 / 7171.em_ / 7171.bin
Text File  |  1994-04-19  |  7KB  |  264 lines
  1. INITIAL
  2. { VT100 Emulation 15MAR89 for V3.5X or V4.0X. Includes }
  3. { 3270 Keyboard Mapping for IBM7171 Protocol Converter } 
  4. { BITCOM's default F1-F10 keys MUST be changed to Alt-F1 thru Alt-F10 }
  5. z#origin(1)
  6. z#setbuf(1,0)
  7. z#setbuf(3,0)
  8. z#awrap(2)
  9. z#setatt(7)
  10. setcolor(7)
  11. clear
  12. z#setmar(1,@mrow)
  13. z#setins(0)
  14. @MAXROW=25
  15. @Return  = '"$0D"'          {ENTER} 
  16. @CtlRet  = '"$0A"'          {NEW LINE}
  17. @Home    = '"$08"'          {HOME CURSOR}
  18. @CtlHome = '"$1B$4F$4D"'    {CLEAR SCREEN}
  19. @Bs      = '"$1B$4F$44$7F"' {BACK SPACE}
  20. @Del     = '"$7F"'          {DELETE}
  21. @Ins     = '"$1B$4F$6E"'    {INSERT TOGGLE}
  22. @CtlEnd  = '"$1B$7F"'       {ERASE EOF}
  23. @Rtab    = '"$09"'          {TAB}
  24. @Ltab    = '"$1B$09"'       {BACK TAB}
  25. @PgUp    = '"$1B$37"'       {PAGE UP PF7}
  26. @PgDn    = '"$1B$38"'       {PAGE DOWN PF8}
  27. @UpArr   = '"$1B$4F$41"'    {UP}
  28. @DnArr   = '"$1B$4F$42"'    {DOWN}
  29. @LfArr   = '"$1B$4F$44"'    {LEFT}
  30. @RiArr   = '"$1B$4F$43"'    {RIGHT}
  31. @Alt-1   = '"$1B$2C"'       {PA1}
  32. @Alt-2   = '"$1B$2E"'       {PA2}
  33. @Alt-3   = '"$1B$2F"'       {PA3}
  34. @F1      = '"$1B$31"'       {PF1}
  35. @F2      = '"$1B$32"'       {PF2}
  36. @F3      = '"$1B$33"'       {PF3}
  37. @F4      = '"$1B$34"'       {PF4}
  38. @F5      = '"$1B$35"'       {PF5}
  39. @F6      = '"$1B$36"'       {PF6}
  40. @F7      = '"$1B$37"'       {PF7}
  41. @F8      = '"$1B$38"'       {PF8}
  42. @F9      = '"$1B$39"'       {PF9}
  43. @F10     = '"$1B$30"'       {PF10}
  44. @Sft-F1  = '"$1B$2D"'       {PF11}
  45. @Sft-F2  = '"$1B$3D"'       {PF12}
  46. @Sft-F3  = '"$1B$71"'       {PF13}
  47. @Sft-F4  = '"$1B$40"'       {PF14}
  48. @Sft-F5  = '"$1B$23"'       {PF15}
  49. @Sft-F6  = '"$1B$24"'       {PF16}
  50. @Sft-F7  = '"$1B$25"'       {PF17}
  51. @Sft-F8  = '"$1B$5E"'       {PF18}
  52. @Sft-F9  = '"$1B$26"'       {PF19}
  53. @Sft-F10 = '"$1B$2A"'       {PF20}
  54. @Ctl-F1  = '"$1B$6F"'       {PF21}
  55. @Ctl-F2  = '"$1B$70"'       {PF22}
  56. @Ctl-F3  = '"$1B$5F"'       {PF23}
  57. @Ctl-F4  = '"$1B$2B"'       {PF24}
  58. END
  59. INBUFFER
  60. 0x00 NUL
  61. 0x08 BS2
  62. 0x0a LF
  63. 0x0b LF
  64. 0x0c FF
  65. 0x1a CAN
  66. 0x7f NUL
  67. 0x0d CR
  68. END
  69. INBUFFER2
  70. 0x00 NUL
  71. 0x08 BS2
  72. 0x0b LF
  73. 0x0c FF
  74. 0x1a CAN
  75. 0x7f NUL
  76. 0x5f 0x20
  77. 0x60 0xfe
  78. 0x61 0x92
  79. 0x62 0x8b
  80. 0x63 0x9f
  81. 0x64 0x87
  82. 0x65 0x91
  83. 0x66 0xf8
  84. 0x67 0xf1
  85. 0x68 0xa5
  86. 0x69 0x9e
  87. 0x6a 0xd9
  88. 0x6b 0xbf
  89. 0x6c 0xda
  90. 0x6d 0xc0
  91. 0x6e 0xc5
  92. 0x6f 0xc4
  93. 0x70 0xc4
  94. 0x71 0xc4
  95. 0x72 0xc4
  96. 0x73 0xc4
  97. 0x74 0xc3
  98. 0x75 0xb4
  99. 0x76 0xc1
  100. 0x77 0xc2
  101. 0x78 0xb3
  102. 0x79 0xf3
  103. 0x7a 0xf2
  104. 0x7b 0xe3
  105. 0x7c 0xf7
  106. 0x7d 0x9c
  107. 0x7e 0xfa
  108. END
  109. OUTBUFFER
  110. 0x08 0x7f
  111. END
  112. HOSTCODE
  113. [?1h            z#setflg(a,5)        { 5-89 added }
  114. [?2l                                 { set terminal to VT52 mode, not support }
  115. [?3h            @maxrow=44;dos("setmax -ammon -c132  -r44  -mmono");
  116. [?4h                                 { select smooth scroll }
  117. [?5h            z#setatt(112)
  118. [?6h            z#origin(2);poscur(1,1)
  119. [?7h            z#awrap(0)
  120. [?8h                                 { auto repeat mode on }
  121. [?9h                                 { full scrn to print during pnt scrn }
  122. [?18h
  123. [?19h
  124. [?25h           cursize(7,8)         { 5-89 added }
  125. [1h
  126. [3h
  127. [4h             z#setins(1)
  128. [5h             z#setatt(112)
  129. [6h             z#origin(2);poscur(1,1)
  130. [7h             z#awrap(0)
  131. [8h
  132. [9h
  133. [12h            @echo(0)             { 5-89 added }
  134. [20h            z#lfnl(1)            { 5-89 added }
  135. [?1l            z#setflg(a,4)
  136. [?2l            message("Received set VT52 sequence. Use vt100b.emu");
  137. [?3l            dos("setmax -ammon -c80 -r25 -mmono");
  138. [?4l                                 { select jump scroll }
  139. [?5l            z#setatt(7)
  140. [?6l            z#origin(1);poscur(1,1)
  141. [?7l            z#awrap(1)
  142. [?8l                                 { auto repeat mode off }
  143. [?9l                                 { scrolling region to print in pnt scrn }
  144. [?18l
  145. [?19l
  146. [?25l           cursize(9,9)         { 5-89 added }
  147. [?3;6;7l        dos("setmax -ammon -c80 -r25 -mmono");z#origin(1);poscur(1,1);z#awrap(1)
  148. [1l
  149. [2l             message("Received set VT52 sequence. Use vt100b.emu");
  150. [3l
  151. [4l             z#setins(0)
  152. [5l             z#setatt(7)
  153. [6l             z#origin(1);poscur(1,1)
  154. [7l             z#awrap(1)
  155. [8l
  156. [9l
  157. [12l            @echo(1)              { 5-89 added }
  158. [20l            z#lfnl(2)
  159. (A              z#setbuf(1,0)
  160. (B              z#setbuf(1,1)
  161. (0              z#setbuf(2,1)
  162. )A              z#setbuf(3,0)
  163. )B              z#setbuf(3,0)
  164. )0              z#setbuf(4,0)
  165. [m              z#setatt(7)
  166. [0m             z#setatt(7)
  167. [1m             z#setatt(14)
  168. [4m             z#setatt(1)
  169. [5m             z#setatt(128)
  170. [7m             z#setatt(112)
  171. [0;1m           z#setatt(14)
  172. [0;4m           z#setatt(1)
  173. [0;5m           z#setatt(128)
  174. [0;7m           z#setatt(112)
  175. [0;0r           z#setmar(1,24);poscur(1,1)
  176. [\t;\br         z#setmar(\\t,\\b);poscur(1,1)
  177. [;r             z#setmar(1,@mrow);poscur(1,1)
  178. [r              z#setmar(1,@mrow);poscur(1,1)
  179. [;\br           z#setmar(1,\\b);poscur(1,1)
  180. [\nA            z#curup(\\n,0)
  181. [A              z#curup(1,0)
  182. [\nB            z#curdn(\\n,0)
  183. [B              z#curdn(1,0)
  184. [\nC            z#curfwd(\\n)
  185. [C              z#curfwd(1)
  186. [\nD            z#curbak(\\n)
  187. [D              z#curbak(1)
  188. [;\nH           poscur(\\n,1)
  189. [\nH            poscur(1,\\n)
  190. [\n;H           poscur(1,\\n)
  191. [H              poscur(1,1)
  192. [;H             poscur(1,1)
  193. [\r;\cH         poscur(\\c,\\r)
  194. [;\nf           poscur(\\n,1)
  195. [\nf            poscur(1,\\n)
  196. [\n;f           poscur(1,\\n)
  197. [f              poscur(1,1)
  198. [;f             poscur(1,1)
  199. [\r;\cf         poscur(\\c,\\r)
  200. D               z#curdn(1,1);
  201. E               z#curdn(1,1);poscur(1,@row)
  202. M               z#curup(1,1);
  203. 7               z#savorg;z#savpos;z#savbuf
  204. 8               z#resorg;z#respos;z#resbuf
  205. H               z#tabset
  206. [g              z#tabclr
  207. [0g             z#tabclr
  208. [3g             z#tabcla
  209. #3
  210. #4
  211. #5
  212. #6
  213. [K              z#clreol
  214. [0K             z#clreol
  215. [1K             z#clrbol
  216. [2K             z#clrlin
  217. [J              z#clreos
  218. [0J             z#clreos
  219. [1J             z#clrbos
  220. [2J             clear
  221. [P              z#del(1)
  222. [0P             z#del(1)
  223. [\nP            z#del(\n)
  224. [L              z#inslin(1)
  225. [0L             z#inslin(1)
  226. [\nL            z#inslin(\n)
  227. [M              z#dellin(1)
  228. [0M             z#dellin(1)
  229. [\nM            z#dellin(\n)
  230. [5n             "$1b[0n"
  231. [6n             "$1b[@row;@colR"
  232. [c              "$1b[?1;0c"
  233. [0c             "$1b[?1;0c"
  234. Z               "$1b[?1;0c"
  235. c               z#origin(1);z#setbuf(1,0);z#setbuf(3,0);z#awrap(0);z#setmar(1,@mrow);
  236. #8
  237. [2;1y
  238. [2;2y
  239. [2;4y
  240. [2;9y
  241. [2;10y
  242. [2;12y
  243. [2;16y
  244. [2;24y
  245. [s              z#savpos
  246. [u              z#Resorg
  247. [y
  248. [0q
  249. [q
  250. [1q
  251. [2q
  252. [3q
  253. [4q
  254. =               z#setflg(a,5)      { application mode }
  255. >               z#setflg(a,4)      { numeric mode }
  256. <
  257. {<               z#setbuf(2,1)      3-89 added }
  258. $5C             z#setbuf(1,1)     {  ESC \ }
  259. [5i             printer(1)         { 3-89 added }
  260. [?5i            printer(1)         { 3-89 added }
  261. [4i             printer(0)         { 3-89 added }
  262. [?4i            printer(0)         { 3-89 added }
  263. END
  264.